home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / PACKAGES / FONT-LOC.ELC < prev    next >
Text File  |  1993-03-28  |  10KB  |  69 lines
  1. ;;; compiled by jwz@thalidomide on Mon Dec 21 20:49:24 1992
  2. ;;; from file /cadillac-th/jwz/emacs19/lisp/packages/font-lock.el
  3. ;;; emacs version 19.4.1 Lucid.
  4. ;;; bytecomp version 2.08; 13-dec-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴!¼ä┬┴!ê├┴!¼à─┼┴\"ê└╞!¼ä┬╞!ê├╞!¼à─┴╞\"ê└╟!¼ä┬╟!ê├╟!¼Ü─╞╟\"ê╟╚╔\n  ═ ╬ ╧\n%ê+└╨!¼ä┬╨!ê├╨!¼à─╤╨\"ê└╥!¼ä┬╥!ê├╥!¼à─╙╥\"ê╔ç" [find-face font-lock-comment-face make-face face-differs-from-default-p copy-face italic font-lock-doc-string-face font-lock-string-face t nil screen underline-p face set-face-1 underline 7 font-lock-function-name-face bold-italic font-lock-keyword-face bold] 6)
  14. (defvar font-lock-keywords nil "\
  15. *The keywords to highlight.
  16. If this is a list, then elements may be of the forms:
  17.  
  18.   \"string\"              ; a regexp to highlight in the 
  19.                   ;  `font-lock-keyword-face'.
  20.   (\"string\" . integer)        ; match N of the regexp will be highlighted
  21.   (\"string\" . face-name)      ; use the named face
  22.   (\"string\" integer face-name)    ; both of the above
  23.   (\"string\" integer face-name t)  ; this allows highlighting to overlap
  24.                   ;  with already-highlighted regions.
  25.  
  26. These regular expressions should not match text which spans lines.  Multi-line
  27. patterns will be correctly fontified when \\[font-lock-fontify-buffer] is used,
  28. but will not be matched by the auto-fontification that font-lock-mode does,
  29. since it looks at only one line at a time.
  30.  
  31. Be careful composing regexps for this list; the wrong pattern can dramatically
  32. slow things down!")
  33. (defvar font-lock-keywords-case-fold-search nil "\
  34. *Whether the strings in `font-lock-keywords' should be case-folded.")
  35. (defvar font-lock-verbose t "\
  36. *Whether font-lock-fontify-buffer should print status messages.")
  37. (defvar font-lock-mode-hook nil "\
  38. *Function or functions to run on entry to font-lock-mode.")
  39. (byte-code "└┴Mê┬└├─#ê┼╞Mê╟╚Mê╔╩Mê╦╠Mê┬╦├─#ê═╬Mê╧╨!¼â╤╨₧¼å╙Cñê╧╘!¼â╤┬╘╒╓#ç" [font-lock-context-face #[(context depth) "┴=½é┬ç├=½é┬ç─=½ë╞U½é╟ç╚ç╔ç" [context comment font-lock-comment-face block-comment string depth 1 font-lock-doc-string-face font-lock-string-face nil] 2] put byte-optimizer byte-compile-inline-expand font-lock-fontify-region #[(start end) "bê    dV½éd┬    ├─$ç" [start end syntactically-sectionize #[(extent context depth) "└    \n ë─=½â┼¬Ö\n╞=½â┼¬æ\n╟=½ï ╚U½â╔¬ä╩¬ü╦*\"ç" [set-extent-face extent context depth comment font-lock-comment-face block-comment string 1 font-lock-doc-string-face font-lock-string-face nil] 5] font-lock] 5] font-lock-unfontify-region #[(beg end) "└ëë─┼p└%+ç" [nil extent2 e s map-extents #[(extent ignore) "└    !┬=??¡╠├    !┼    ! W½⌐╚     S#ê    TV¡¡╩    T\" ╠ ═    !\"ê╬ └    !\"ç    TV½ë╚        T#ç╧    !ç" [extent-data extent font-lock extent-start-position s extent-end-position e beg set-extent-endpoints end make-extent extent2 set-extent-face extent-face set-extent-data delete-extent] 4] beg end] 6] font-lock-after-change-function #[(beg end old-len) "è└      bê ┼V¼êh╞U¼âo½â╟ êbê╔ê` bê┼yê`╩ \"ê╦ T\"ê╠ \"ê═\n!+ç" [match-data zmacs-region-stays data beg old-len 0 10 buffer-syntactic-context-flush-cache end nil font-lock-unfontify-region font-lock-fontify-region font-lock-hack-keywords store-match-data] 3] font-lock-any-extents-p #[(start end) "└┴ìç" [done (byte-code "└┴p\n ─%ê─ç" [map-extents #[(extent ignore) "└    !┬=¡ä├─┼\"ç" [extent-data extent font-lock throw done t] 3] start end nil] 6)] 2] font-lock-hack-keywords #[(start end &optional loudly) "bê    \n├─ëëëëëë    \n  à┘bê@:½╟@@ @A:½Ö@A@\n@AA@    @AAA@¬«@A9½ì├\n─@A    ¬Ü@A\n─╧    ¬ì@ ├\n─╧    ╨ ╥#½▒\nö\nò¼ì╙╘ì*¼]╒\"╓    \"ê╫╪\"ê¬F½Å┌█▄▌ Të ▐\"\"!êAëä%─.\nç" [start font-lock-keywords-case-fold-search font-lock-keywords 0 nil allow-overlap-p extent e s face match str count rest case-fold-search font-lock-keyword-face re-search-forward end t done (byte-code "└┴p\n ─%ê─ç" [map-extents #[(extent ignore) "└    !┬=¡ä├─┼\"ç" [extent-data extent font-lock throw done t] 3] start end nil] 6) make-extent set-extent-face set-extent-data font-lock loudly message format "Fontifying buffer... (regexps...%s)" make-string 46] 11] boundp font-lock-mode nil minor-mode-alist (font-lock-mode " Font-Lock") font-lock-fontified permanent-local t] 4)
  40. (fset 'font-lock-mode #[(&optional arg) "¼ä    ?¬à┬!├V┼ ╞ܽé╟╔>¼å╩╦\"ê╠╚! ¡ü═Lê╠┴! Lê ½ì╬╧!ê¼æ╤ ê¬î½ê╟╥ed\"ê╙ )ç" [arg font-lock-mode prefix-numeric-value 0 on-p buffer-name " *Compiler Input*" nil after-change-function (nil font-lock-after-change-function) error "after-change-function is %s" make-local-variable font-lock-after-change-function run-hooks font-lock-mode-hook font-lock-fontified font-lock-fontify-buffer font-lock-unfontify-region redraw-mode-line] 3 "\
  41. Toggle Font Lock Mode.
  42. With arg, turn font-lock mode on if and only if arg is positive.
  43. In the font-lock minor mode, text is fontified as you type it:
  44.  
  45.  - comments are displayed in font-lock-comment-face;
  46.  - strings are displayed in font-lock-string-face;
  47.  - documentation strings are displayed in font-lock-doc-string-face;
  48.  - function and variable names in their defining forms are displayed
  49.    in font-lock-function-name-face;
  50.  - and certain other expressions are displayed in other faces
  51.    according to the value of the variable `font-lock-keywords'.
  52.  
  53. When font-lock mode is turned on/off, the buffer is fontified/defontified.
  54. To fontify a buffer without having newly typed text become fontified, you
  55. can use \\[font-lock-fontify-buffer]." "P"])
  56. (fset 'font-lock-fontify-buffer #[nil "    «üt    ½ä├─!ê\n¼ä└┼!ê╞╟ped╚%ê    ½ä├╔!ê╩ êè╦ed\"ê    ½ä├╠!ê═ed    #ê)\n¼ä└╬!ê╧╨!╤Lê    ¡â├╥!*ç" [font-lock-mode font-lock-verbose was-on message "Fontifying buffer..." 1 map-extents #[(x y) "└    !┬=¡â├    !ç" [extent-data x font-lock delete-extent] 2] nil "Fontifying buffer... (syntactically...)" buffer-syntactic-context-flush-cache font-lock-fontify-region "Fontifying buffer... (regexps...)" font-lock-hack-keywords 0 make-local-variable font-lock-fontified t "Fontifying buffer... done."] 6 "\
  57. Fontify the current buffer the way `font-lock-mode' would:
  58.  
  59.  - comments are displayed in font-lock-comment-face;
  60.  - strings are displayed in font-lock-string-face;
  61.  - documentation strings are displayed in font-lock-doc-string-face;
  62.  - function and variable names in their defining forms are displayed
  63.    in font-lock-function-name-face;
  64.  - and certain other expressions are displayed in other faces
  65.    according to the value of the variable `font-lock-keywords'.
  66.  
  67. This can take a while for large buffers." nil])
  68. (byte-code "└┬├!¼ñ─┼╞╟P    \n╦╠═╬╧╨╤ë╥╙░╘╒E╓╫P╪╒E»+┬┘!¼ë┌█▄▌▐»┬▀!¼èαßΓπΣσ»┬µ!¼ÄτΦΘΩδ∞φε∩≡»\n&±≥Mê≤⌠±\"ç" [(("^(def[-a-z]+\\s +\\([^     \n)]+\\)" 1 font-lock-function-name-face) ("\\s :\\(\\sw\\|\\s_\\)+\\>" . 1)) lisp-font-lock-keywords boundp c-font-lock-keywords "auto\\|extern\\|register\\|static\\|volatile" "unsigned\\|short\\|long" "int\\|char\\|float\\|double\\|void\\|struct\\|" "union\\|enum\\|typedef" types prefixes storage ("^#[     ]*[a-z]+" . font-lock-comment-face) ("^#[     ]*define[     ]+\\(\\(\\sw\\|\\s_\\)+\\)" 1 font-lock-function-name-face) ("^#[     ]*include[     ]+<\\([^>\n]+\\)>" 1 font-lock-string-face) ("case[     ]+\\(\\sw\\|\\s_\\)+:" . 1) ("\\<\\(default\\):" . 1) "^\\(\\(\\sw\\|\\s_\\)+[     ]+\\)?" "\\(\\(\\sw\\|\\s_\\)+[     ]+\\)?" "\\(\\*+[     ]*\\)?" "\\(\\sw\\|\\s_\\)+[     ]*(" 8 font-lock-function-name-face "^\\(typedef[     ]+struct\\|struct\\|static[     ]+struct\\)" "[     ]+\\(\\sw\\|\\s_\\)+[     ]*\\({\\|$\\)" 2 perl-font-lock-keywords "[ \n    {]*\\(if\\|until\\|while\\|elsif\\|else\\|unless\\|for\\|foreach\\|continue\\|exit\\|die\\|last\\|goto\\|next\\|redo\\|return\\|local\\|exec\\)[ \n    ;(]" "\\(#endif\\|#else\\|#ifdef\\|#ifndef\\|#if\\|#include\\|#define\\|#undef\\)" ("^[ \n    ]*sub[     ]+\\([^     {]+\\)\\{" . font-lock-function-name-face) ("[ \n    {]*\\(eval\\)[ \n    (;]" . font-lock-function-name-face) ("\\(--- .* ---\\|=== .* ===\\)" . font-lock-doc-string-face) tex-font-lock-keywords ("\\(\\\\\\w+\\)" 1 font-lock-keyword-face t) ("{\\\\em\\([^}]+\\)}" 1 font-lock-comment-face t) ("{\\\\bf\\([^}]+\\)}" 1 font-lock-keyword-face t) ("^[     \n]*\\\\def[\\\\@]\\(\\w+\\)" 1 font-lock-function-name-face t) ("\\\\\\(begin\\|end\\){\\([a-zA-Z0-9\\*]+\\)}" 2 font-lock-function-name-face t) ("[^\\\\]\\$\\([^$]*\\)\\$" 1 font-lock-string-face t) texi-font-lock-keywords "@\\(@\\|[^}     \n{]+\\)" ("^\\(@c\\|@comment\\)[     ].*$" . font-lock-comment-face) ("^\\(*.*\\)[     ]*$" 1 font-lock-function-name-face t) ("@\\(emph\\|strong\\|b\\|i\\){\\([^}]+\\)" 2 font-lock-comment-face t) ("@\\(file\\|kbd\\|key\\){\\([^}]+\\)" 2 font-lock-string-face t) ("@\\(samp\\|code\\|var\\){\\([^}]+\\)" 2 font-lock-function-name-face t) ("@\\(xref\\|pxref\\){\\([^}]+\\)" 2 font-lock-keyword-face t) ("@end *\\([a-zA-Z0-9]+\\)[     ]*$" 1 font-lock-function-name-face t) ("@item \\(.*\\)$" 1 font-lock-function-name-face t) ("\\$\\([^$]*\\)\\$" 1 font-lock-string-face t) dummy-font-lock-mode-hook #[nil "┴>½å┬├! Lç┼>½ç┬├!Lç╟=½ç┬├!Lç╔=½ç┬├!\nLç╦=¡å┬├! Lç" [major-mode (lisp-mode emacs-lisp-mode) make-local-variable font-lock-keywords lisp-font-lock-keywords (c-mode c++-mode) c-font-lock-keywords perl-mode perl-font-lock-keywords tex-mode tex-font-lock-keywords texinfo-mode texi-font-lock-keywords] 2] add-hook font-lock-mode-hook] 10)
  69.